VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BClienteNatural"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarnCodigo As Long
Private mvarsNombres As String
Private mvarsApellidos As String
Private mvarsTelefono As String
Private mvarsCodBarra As String
Private mvardFecNacimiento As Date
Private mvarsEmail As String
Private mvarsNumDocumento As String
Private mvarbTipoDocumento As BTipo
Private mvarbEstado As bEstado
Private mvarbFecNacimiento As Boolean
Private mvarsDireccion As String

Private Sub Class_Initialize()
Set bTipoDocumento = New BTipo
Set bEstado = New bEstado
End Sub

Private Sub Class_Terminate()
    Set mvarbTipoDocumento = Nothing
    Set mvarbEstado = Nothing
End Sub



Public Property Get sNumDocumento() As String

    sNumDocumento = mvarsNumDocumento

End Property

Public Property Let sNumDocumento(ByVal sNumDocumento As String)

    mvarsNumDocumento = sNumDocumento

End Property

Public Property Get nCodigo() As Long

    nCodigo = mvarnCodigo

End Property

Public Property Let nCodigo(ByVal nCodigo As Long)

    mvarnCodigo = nCodigo

End Property

Public Property Get sNombres() As String

    sNombres = mvarsNombres

End Property

Public Property Let sNombres(ByVal sNombres As String)

    mvarsNombres = sNombres

End Property

Public Property Get sApellidos() As String

    sApellidos = mvarsApellidos

End Property

Public Property Let sApellidos(ByVal sApellidos As String)

    mvarsApellidos = sApellidos

End Property

Public Property Get sTelefono() As String

    sTelefono = mvarsTelefono

End Property

Public Property Let sTelefono(ByVal sTelefono As String)

    mvarsTelefono = sTelefono

End Property

Public Property Get sCodBarra() As String

    sCodBarra = mvarsCodBarra

End Property

Public Property Let sCodBarra(ByVal sCodBarra As String)

    mvarsCodBarra = sCodBarra

End Property

Public Property Get dFecNacimiento() As Date

    dFecNacimiento = mvardFecNacimiento

End Property

Public Property Let dFecNacimiento(ByVal dFecNacimiento As Date)

    mvardFecNacimiento = dFecNacimiento

End Property

Public Property Get sEmail() As String

    sEmail = mvarsEmail

End Property

Public Property Let sEmail(ByVal sEmail As String)

    mvarsEmail = sEmail

End Property

Public Property Get bTipoDocumento() As BTipo

    Set bTipoDocumento = mvarbTipoDocumento

End Property

Public Property Set bTipoDocumento(bTipoDocumento As BTipo)

    Set mvarbTipoDocumento = bTipoDocumento

End Property

Public Property Get bEstado() As bEstado

    Set bEstado = mvarbEstado

End Property

Public Property Set bEstado(bEstado As bEstado)

    Set mvarbEstado = bEstado

End Property

Public Property Get bFecNacimiento() As Boolean

    bFecNacimiento = mvarbFecNacimiento

End Property

Public Property Let bFecNacimiento(ByVal vdata As Boolean)

    mvarbFecNacimiento = vdata

End Property

Public Property Get sDireccion() As String

    sDireccion = mvarsDireccion

End Property

Public Property Let sDireccion(ByVal sDireccion As String)

    mvarsDireccion = sDireccion

End Property

